Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
   Dim myNumber As Double = 5123456.00
   System.Threading.Thread.CurrentThread.CurrentCulture = new CultureInfo("pl-PL")
   Response.Write("<b><u>pl-PL</u></b><br>")

   Response.Write(myNumber.ToString("c") & "<br>")


   System.Threading.Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")
   Response.Write("<b><u>en-US</u></b><br>")

   Response.Write(myNumber.ToString("c") & "<br>")

   System.Threading.Thread.CurrentThread.CurrentCulture = new CultureInfo("vi-VN")
   Response.Write("<b><u>vi-VN</u></b><br>")

   Response.Write(myNumber.ToString("c") & "<br>")

   System.Threading.Thread.CurrentThread.CurrentCulture = new CultureInfo("fi-FI")
   Response.Write("<b><u>fi-FI</u></b><br>")

   Response.Write(myNumber.ToString("c") & "<br>")

   System.Threading.Thread.CurrentThread.CurrentCulture = new CultureInfo("fr-CH")
   Response.Write("<b><u>fr-CH</u></b><br>")

   Response.Write(myNumber.ToString("c"))

End Sub
